home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / A / ASU Library.sit / ASU Red Ryder Shell Source / 2400 < prev    next >
Encoding:
Text File  |  1988-04-07  |  619 b   |  47 lines  |  [TEXT/MACA]
  1. (2400)
  2. COPYINTO B$,S$
  3. CONCAT B$,-E-7-1-FULL
  4. COMM B$
  5. SCREEN ON
  6. CONTAINS L$,TOUCHTONE
  7. IF YES COPYINTO D$,ATDT 
  8. CONTAINS L$,PULSE
  9. IF YES COPYINTO D$,ATDP 
  10. CONCAT D$,N$
  11. TYPE ATH^M
  12. PAUSE
  13. TYPE ATZ^M
  14. PAUSE
  15. DIAL D$
  16. PAUSE
  17. PROMPT NECT
  18. PAUSE 30
  19. TYPE ^M
  20. PAUSE 10
  21. TYPE ^M
  22. PAUSE 10
  23. TYPE ^M
  24. PAUSE 10
  25. TYPE ^M
  26. PAUSE 10
  27. PROMPT stination:
  28. CONTAINS H$,ACIBM
  29. IF YES TYPE ACIBMPC^M
  30. CONTAINS H$,ADMIN
  31. IF YES TYPE ICIBMPC^M
  32. CONTAINS H$,ACVAX
  33. IF YES TYPE ACVAX^M
  34. CONTAINS H$,LIBR
  35. IF YES TYPE LIBRARY^M
  36. PROMPT CLOSED
  37. CONTAINS H$,LIBR
  38. IF YES JUMPTO LIBR
  39. CONTAINS H$,ACVAX
  40. IF YES END
  41. TYPE ^M
  42. PROMPT NAL TYPE: 
  43. PAUSE
  44. TYPE VT100^M
  45. END
  46. :LIBR
  47. TYPE 2^M